RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**F ILE**1D**CONVBR 


cccccccc 000000 
ccccccce 000000 
cc 00 
cc 00 
cc 00 
cc 00 
cc 00 
cc 00 
cc 00 
CC 00 
cc 00 
cc 00 00 
cccccccc 000000 
ccccccce 000000 
LL IIIT] 
LL III] 
LL I] 
LL I] 
LL I] 
LL I] 
LL I] 
LL I] 
LL I] 
LL I] 
LL I] 
LL I] 
LLLLLLLLLL IIIT] 
LLLLLLLLLL IIIIII 
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CONVBR 16-Sep-1984 AX-11 Bliss-32 V4.0-74 Page 1 
1a-Sep- 1984 99: He 98 RUNOFF .SRCJCONVBR.BLI; . (1) 

H 1 001 MODULE CONVBR ( ! 

; ¢ 0 ¢ IDENT = ‘V04-000' 

3 P 00 %BL1SS32C 

: ¢ P : ¢ ADDRESSING MODE (EXTERNAL=LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) 

3 6 0006 d= 

H 7 00 1 BEGIN 

H 8 0008 1! 

s 9 Bote SPECS STSCI TTT TTT eet T TTT ITT I CISTI IIS TTT IIIT TT TTL TITitiTitiiit 

; 0010 1 !* * 

$ 11 0011 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 * 

: \¢ borg 1 !® DIGITAL EQUIPMENT €ORPORATION, MAYNARD. MASSACHUSETTS. * 

; VF Betz ! = ALL RIGHTS RESERVED. * 

; Hl * 

; 15 0015 1 !* THIS SOFTWARE is FURNISHED UNDER A LICENSE AND MAY BE USED AND gh * 

3 16 8918 1 '!* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND so THE * 

$ 17 001 1 !* INCLUSION OF He ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR HER * 

H 18 0018 1 !* | THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

: 19 0019 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® 

: $9 8054 : - ORANSFERRED. * 

: '® ® 

: $$ 8086 1 !e . oes ae IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

3 002 1 !« SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; $e 0004 \ te CORPORATION. + 

4 '® ® 

; 26 0026 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

ar 0027 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 

; 28 0028 1 is * 

> 29 0029 1 is ® 

: 3 0030 1 Fee meee eee REAR AREER EAE 

; 1 0031 1! 

is. O03 1 +4 

3 3 O02 : FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

; 0035 1 ! ABSTRACT: Convert a binary number into a vector of roman numerals and 

; » 0036 1! return the result and character count. 

; 37 9037 1! 

3 38 0038 1! 

: 0039 1 ! ENVIRONMENT: Transportable 

; 40 0040 1 | 

3 41 0041 1 ! AUTHOR: R.W.Friday CREATION DATE: April, 1979 

s €2 0042 1! 


18-Sep-19 r 00: 1:98 AX-11 Bliss-32 V4.0-74 


v04-000 Revision History -Sep-19 RUNOFF ..SRCJCONVBR.BLI; 


3 te oi? ] RSBTTL "Revision History' 

; 46 45 1 ! MODIFIED BY: 

5 oF pes 1 ! 

>; «448 Bae 1! 003 KFA00003 Ken Alden 07-Mar-1983 

; #69 ote 7! Global edit of all modules. Updated module names, idents, 
; 31 R288 : } copyright dates. Changed require files to BLISS library. 
i 0051 1 i-- 
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6-Sep-1984 00:11: AX-11 Bliss-32 V4.0-74 
Module Level Declarations 4 et ULES: : 


RUNOFF .SRCJCONVBR.BLI; 


: ¢ 8 § ! ZSBTTL ‘Module Level Declarations’ 

: 5 0054 1! 

; 0055 1 | MACROS: 

; 8 00 § 1! 

: 59 0057 1 MACRO 

: 60 a 058 1 RI0(C) = 

61 M 059 IF EQL %C'i" THEN X%C'x' 

: 63 M" 006) IFC EQL %C'x’ THEN %C'c' 

: 65 x aps 1 IF C EQL %C'c" THEN %C'm' 

: 66 m 0064 1 ELSE 

; 67 X" 0065 IF ¢ EQL %C*v" THEN ZC'L’ 

: 69 % $089 1 IF C EQL %C°L" THEN %C'd' 

; 2 M 0068 ELSE ened ‘ 

; 1 ” 

4 1 MACRO 

; 1 RPLIT (S) = 

; CHSPTR( UPLIT(ZSTRING(XZCHAR<XZCHARCOUNT(S)),S)) ) %; 
: 1! 

: i EQUATED SYMBOLS: 

; : 

3 7 4 

: t OWN STORAGE: 

: . 

; 1 BIND 

; 1 ROM_TAB = UPLIT ( 

: 1 RPLIT('0"), 10 
; 1 RPLIT('i") i] 
3 1 RPLIT(*ii'S ig 
: 1 RPLIT('iii'S, i 
: 1 RPLIT("iv'), i4 
; 1 RPLIT("y") i§ 
; 1 RPLIT('vi'S i$ 
3 1 RPLIT("vii'S i 
: 1 RPLIT("viii'S, ig 
; 1 RPLIT("ix') i 
: 1 ): VECTOR; 
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16-Sep-1984 00:11: AX-11 Bliss-32 V4.0-74 
1 7335-1382 99:05:98 RUNOFF .SRCJCONVBR.BLI; 
GLOBAL ROUTINE CONVBR (BINARY_NUMBER, KHARACTERS, KHARACTER_COUNT, ULM) : NOVALUE = 


144 


i FUNCTIONAL DESCRIPTION: 


Converts tad Aa oa oil to a vector of roman numerals, 
returning them in ‘kharacters'; kharacter_count is the 
number of characters that result. 
The absolute value of Sen number’ is converted 
so that the user is responsible for handling negative numbers. 
ULM is as follows: -1 means return all characters in upper case. 
9 means return all characters in lower case. 
+1 means first character in upper case, rest in lower case. 


NOTE 
The algorithm used here does not take into account many 
special cases for which shorter Roman forms are possible. 
For examale, 45 is translated to XLV, even though VL is 
spetous\y shorter. This is not a bug, but is well within 
the tradition of how Roman numerals were formulated. » 
The Romans themselves did not always use the ‘‘subtractive 
principle in its fullest; it is possible to find Roman 
inscriptions that use IIXX for 18, for example. Similarily, 
VIIII is not uncommon for 9. 


FORMAL PARAMETERS: 
See FUNCTIONAL DESCRIPTION 


IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 
ROUTINE VALUE: 

COMPLETION CODES: None 


SIDE EFFECTS: None 


le tet ee te eed ee ed ee te te te te tt 


BEGIN 
BIND 
ROM_DIGITS = .KHARACTERS : VECTOR; 


: VECTOR (201, 


et all the decimal digits separated out. 5 
pe = 0; ; Assume user supplied zero. 


LE a 


16 
VBR 1bese -1984 00:11: AX-11 Bliss-32 V4.0-74 
v04-000 Module Level Declarations 14 ets 1 90:05:38 RUNOFF .SRCJCONVBR.BLI; 


‘Convert decimal digits to roman numerals. 
eg we (.DEC_DIG_COUNT - 1) TO 0 DO 


‘Prior to converting the next decimal digit, do the gvruatont 
‘of oul eine the pars tes roman numeral result by 10. 

INCR J FROM 0 TO (.ROM_DIG_COUNT - 1) DO 

ROM_DIGITS C.JJ = TRIOT.ROM_DIGITS C.JJ)); 


'Now convert the next decimal digit. This is done by 

‘a ene table oe porjgued by copying into ROM_DIGITS. | : 

X = .ROM TABC.DEC DIGITSC.1J); !Look up the roman equivalent of this digit. 
XC = CHSRCHAR_A(X); !Get the digit count into XC. 

‘Discard zeroes (i.e., 10, 20, etc) but continue in the loop so 

‘what's already been converted gets multiplied by 10. 

Fan ves peSetS C.1J NEQ 0 


29 153 ‘Force number into correct range. 

2f : ¢ T = ABS(.BINARY_NUMBER) MOD 4000; 

59 1 'Special case, if user supplied zero. Ir, such a case return ‘0’. 
60 1 5 iF? -T EQL 6 0 

61 1 THEN 

66 15 BEGIN 

6 16 eae TER. cOUNT = 1; 

64 4 ROM DIGITS = xc'b'; 

65 6 RETORN 

$ - 

68 6 ‘And now do strip off the digits, one by one. 
69 6 WHILE (.T NEQ 0) DO 

70 BEGIN 

a! DEC DIGITS -DEC_DIG_COUNT] = .T MOD 10; 
ig DEC_DIG_COUNT = .DEC_DIG_COUNT + 1; 

74 END; 

75 

76 

77 

78 

79 

80 

4 

88 

84 

8 


uw 


'Not zero, so convert it as usual 
NCR J FROM (.ROM_DIG_COUNT + 1) TO (.ROM_DIG_COUNT + .XC) DO 


ROM_DIGITS C.J = 1] = CHSRCHAR_A(X); 
A  aaaes = J; 'Update current length. 
END; . 


'Set up the Length for the user. 
-KHARACTER_COUNT = .ROM_DIG_COUNT; 


‘Apply case conversion rules. 
IF OuM EQL 0 
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'User is content with lower case, so just return. 
RETURN; 


‘Compute how many characters need to be converted to upper case. 
'The result is saved in T. 

IF .ULM EQL -1 

THEN 
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: 213 10 T = .ROM_DIG_COUNT = 1 'Upper case 
: $47 tI ELSE ss - 
: 1? i¢ T= 0; 'Mixed case 
s 13 14 ‘Now 1008 over the characters to be converted and make them upper case. 
s 18 15 INCR I FROM 0 "9 -T DO 
8 3 8 1§ ROM_DIGITS C.1] = .ROM_DIGITS C.1] - %C'a’ + &C°A'; 
3 $3 0218 RETURN; 
3 2 0219 END; ‘End of CONVBR 
-TITLE CONVBR 
-IDENT \v04-000\ 
-PSECT SPLITS,NOWRT,NOEXE,2 
00 00 30 01 00000 P.AAB: .ASCII <1>\0\<0><0> 
00 00 69 4 00004 P.AAC: .ASCII <1>\i\<0><0> 
00 69 69 ¢ 00008 P.AAD: .ASCII Sea 
69 69 69 03 QOO0C P.AAE: .ASCII <3>\iii 
00 76 69 O2 Q0010 P.AAF: .ASCII <2>\iv\<0> 
00 00 76 O01 00014 P.AAG: .ASCII <1>\v\<0><0> 
00 69 76 8 00018 P.AAH: .ASCII <2>\vi\<0> 
69 69 76 03 OOO1C P.AAI: .ASCII <3>\vii\ 
00 00 00 69 69 69 76 04 00020 P.AAJ: .ASCII <4>\viii\<0><0><0> 
00 78 69 02 Boose P.AAK: .ASCII <2>\ix\<0> 
00000000" 00000000° 00000000° 00000000' 0000000uU' 00000000‘ 0002C P.AAA: .ADDRESS P.AAB, -.AAC, P.AAD, P.AAE, P.AAF, 
00000000* 00000000' 00000000' 00000000° 00044 P.AAG, P.AAH, P.AAI, P.AAJ, P.AAK 
ROM_TAB= P.AAA 
-PSECT S$CODES,NOWRT,2 
OOFC 00000 -ENTRY CONVBR, Save R2,R3,R4,R5,R6,R7 
5E BO AE 9E 00002 MOVAB -80(SPS, SP 
51 7C 90006 CLRQ DEC_DIG_ COUNT 
50 04 Ag DO 00008 MOVL BINARY_RUMBER, RO 
9 18 0000C BGEQ } 
50 0 CE OQ000E MNEGL RO, RO 
7E 00 50 01 7A Bot 1$: EMUL #1, RO, #0, -(SP) 
54 54 BE O0000FAO 8F 7B 00016 EDIV #4600, (SPS+, T, T 
54 03 Oho TSTL T 
09 #1 0021 BNEQ 
3 DO 000 ; MOVL #1, @KHARACTER_COUNT 
0 pO 000 MOVL #48, @KHARACTERS 
04 00028 RET 
33 t ° C 28 TSTL T 
SY BNEQ 3$ 
Ag ; ; BRW 
0 A 3$: EMUL #1, T, #0, (SP) 
OA 78 999 EDIV #16, (sP)+, RO, RO 
0 D 0 D MOVL RO, DEC_DIGITSCDEC_D1G_COUNT) 
9A C6 41 DivL2 #10, T 
1 96 0044 INCL heen anal 
—E4 1 0046 BRB 
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2 Bl 
; 4 1 1 END 'End of module 
3 5 0222 0 ELUDOM 


PSECT SUMMARY 


: Name Bytes Attributes 

: $PLITS 84 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

: $CODES 263 NOVEC.NOWRT, RD. EXE.NOSHR, LCL. REL. CON.NOPIC.ALIGN(2) 

: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=L1S$:CONVBR/OBJ=0B8J$:CONVBR MSRC$:CONVBR/UPDATE=(ENH$: CONVBR) 


; Size: 263 code + 84 data bytes 
; Run Time: 00:05.2 


: Elapsed Time: 00:14.5 
3 Lines/CPU Min: 2566 
3 [came ale igi 16647 
g acy 74 pages 
3 —— Bs aay Complete 
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